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MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 
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NT! 

| NT! 
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RRRRRRRR MM 33333 XX XX AAAAAA LL LL 000000 
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RR RR MMMM MMMM 33 XX XX AA AA LL LL 00 00 

RR RR MM MM MM 33 XX XX AA AA LL LL 00 00 

RR RR MM MM MM 33 XX XX AA AA LL LL 00 00 

RRRRRRRR MM MM 3 XX AA AA LL LL 00 00 

RRRRRRRR MM MM 3 XX AA AA LL LL 00 00 

RR RR MM MM XX XX AAAAAAAAAA LL LL 00 00 

RR RR MM MM 

RR RR MM MM 33 

RR RR MM MM 33 XX XX AA AA LL LL 00 00 a 
RR RR MM MM 333338 XX XX AA AA LLLLLLELLLLE LLLLLLLLLL 000000 cove 
RR RR MM MM 3333 XX XX AA AA LLLLLLLLLE LLLLLLLLLL 000000 eoee 
LL II1111 SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 
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LL I] SSSSSS 
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LL I] SS 

LL I] S$ 

Li I] $$ 
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MODULE RM3XALLO (LANGUAGE BLISS 32) ’ 
ce = 'v04-000' 
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0 
0 
0 
BEGIN 
. Lee A ERATE 
'® t 
| 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
: ; ‘4 ALL RIGHTS RESERVED. * 
'® * 
| 0 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0 'w ONLY IN ACCORDANCE WITH TH F SUCH LICENSE AND WITH THE * 
0 '® INCLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: tes TRANSFERRED. * 
'® ¥ 
0 'w THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5 * CORPORATION. * 
'® o 
0 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE JSE OR RELIABILITY OF ITS * 
” SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
'e 
0 '® 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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lee 
' 
: FACILITY: RMS32 index sequential file organization 
i ABSTRACT: 
This routine fills in the area definitions from the XAB 
' 
A ENVIRONMENT: 
3 | VAX/VMS OPERATING SYSTEM 
4 004 : 
4 004 le= 
4 004 
4 004 : 
4 0044 ' AUTHOR: D. M. BoysaueT 
45 0045 ! CREATION DATE: 10-AUG-78 10:33 
46 0046 : 
47 0047 : 
48 0048 ' MODIFIED BY 
49 0049 : 
50 0050 : v03-012 SHZ20001 Stephen H. Zalewski 16-Apr-1984 
51 0051 : © not attempt to read the area_vbn if this is a foreign 
26 pO3¢ ' device. This is needed to make copying of an index file 
27 0084 to a foreign device work. 
55 055 : v03-011 DASO001 David Solomon 25-Mar-1984 
2$ bees Fix broken branches. 
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16-5 ~ge0= 19% 0: he 9 VAX-11 Bliss-32 V4.0-74 ; 


Return new field in area descriptor which stores 


-Sep-1 DISKSVMSMASTER: CRMS. SRC RM3XALLO. B32. r" (1 | 

V03-010 MCNO002 Maria del C. Nasr 31-Mar-1983 
Reorganize Linkages. | 
03-009 McNO001 Maria del C. Nasr 08-Nov-1982 | 
| 


the area's total allocation: AREASL TOTAL _ALLOC. 
Also, now that the information in the area “descriptor is 
consistent, we can return the ALN value. 


v03-008 KBT0238 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
Fill in the ALQ field” with. SOMETHING. 
Use alternate PA noty ad RFLEASE. 
V02-005 REFORMAT D M WALP 24-JUL=1980 
v02-004 CDS0001 C D SAETHER 11-MAR-1980 


' 

1 

' 

1 

' 

' 

' 

' 

' 

' 

! 

' 

V02-0u7 Key T0001 K BT 30-Dec-1981 
i 

' 

' 

' 

' 

! 

' 

Return OK_NOP if area vbn zero (prologue not read) 
igeeee 

LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘"RMSSRC:RMSIDXDEF'; 


define default psects for code 


| 
vo2-006 cpso002 ¢ Saether 9-Aug-1981 


CODE = RMSRMS3(PSECT_ATTR), 
= RMSRMS3(PSECT_ATTR); 


Linkages 

LINKAGE 

L_CHKSUM 

L-RELEASE_FAB, 

“CACHE 

L-FABREG, 

L“LINK_7.10_11; 

External Routines 

EXTERNAL ROUTINE 
RMSCHKSUM =: RLSCHKSUM 
RMSRELEASE : RLSRE ELEASE FAB ADDRESSING -MODE ( ONG RELATIVE ), 


: RLSCACHE ADDRESSING MODE(”~LONG R 
RMSRND_DEV : RLSLINK_7_10_11 ADDRESSING. LMODE (GENERAL) ; 


veah 
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GLOBAL ROUTINE RMSXALLO3 (XAB) : RLS$F 


'o4 


FUNCTIONAL DESCRIPTION: 


32 hed Page 
R: CRMS.SRCJRM3XALLO.B32; 1 (2 
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ABRE 


This routine checks to make sure that the Area Descriptors 
are never greater than the maximum number of descriptors 
defined for the file, (found in the IFAB). 


It then fills in the ALLOCATION XAB from the area descriptor 


CALLING SEQUENCE: 


RMSXALLO5 (XAB) 


INPUT PARAMETERS: 
XAB 


paises INPUTS: 


- Pointer to 


CXAB$B_AID] = Area ID 


SAREADEF 


AREASB_AOP 
ASB~ALN 


$STR 


C 
I 
IFBSB 
I 
I 


> 
rs] 
m 
> 
bad 
= 
o2 
m>< 
@ 
x 
us 
seepevene 


T IFAB 


ARE 

ARE 

AREASW_DEQ 
ae 
t $B_AMAX] 

AVBN) 

C 

C 


FB 
FB$B_AVBN 
FBSB_ORGCASE] 


Al 


Ex 
Vo 


Num 
Number of blocks in next extent 


the allocation XAB we are processing 


Area id for this descriptor 


sraens options 
er of blocks in current extent 


tend allocation alignment 


Bucket size for area 


lume number 


Block Length for area desc., 64 bytes 


Maximum number of area descriptors in file 
Start vbn of first area descriptor 


File organization 
$C_IDXJ Constant for index files 
OUTPUT PARAMETERS: 
XAB = Untouched by this routine 
IMPLICIT OUTPUTS: 
$XAB 
XABS$B_ - Alignment options 
XABS$B_ALN - Alignment 
XABSL_AL - Allocation 
XABSW_DEQ - Default extend quantity 
XABS$B_BKZ - Bucket size in blocks 
XAB$W_VOL - Volume number 
ROUTINE VALUE: 
RMSERR 
(AID) - Invalid area id 
(SUC) = Success 
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: 167 sag 

: «168 1 1 ! SIDE EFFECTS: 

: 19 0588 1 i avin 

: 171 4 1 ie. 

; \7¢ oe 

: \t? 8 BEGIN 

: 175 6 8 EXTERNAL REGISTER 

: 176 0239 COMMON_FAB_STR; 

s V7? 0240 

: 178 8 41 GLOBAL REGISTER 

; if 5 R_IDX_DFN; 

; 6180 024 

; Wi 0244 MAP 

; ise 8 <2 XAB : REF BBLOCK; 

> 184 0247 CAL 

; «185 Bsee AREA_VBN 

> 186 0249 AREA~DESC : REF BBLOCK; 

: 187 0250 

: is bs24 Just to make sure this is an indexed file 

; MP ue IF _,jlFABLIFBSB_ORGCASE EQL IFBSC_IDX 

; 198 0255 BEGIN 

; 19 0256 

3: «194 0257 ! Before we do anything let's check validity of the AID, all we really 
; 1% o5e5 ! care about is that it isn't larger than the largest defined for this 
; 196 0259 ! field. Don't care if areas are contiguous or if AID's are in 
: 197 0260 ' ascending order. 

: 136 0563 

; 200 0968 3 IF .XABCXAB$SB_AID] GTRU .1FABLIFB$B_AMAX) 

; 20¢ 0265 3 RETURN RMSERR(AID); 

: 20 0266 : 

: 204 0267 ! Now to compute the area vbn and the descriptor to work on If AVBN is 
3 Soe oseo : zero, the prologue wasn't read on OPEN (block i/o) 
: 207 0270 

: 208 0271 IF (AREA_VBN = .IJFABCIFBSB_AVBN]) EQL 0 

; 209 07¢ OR NOT RMSRND_DEV() 

; aii 0374 RETURN RMSSUC(OK_NOP); 

; $18 0276 AREA_VBN = .AREA_VBN + .XABLXABSB AID 8; 

: 6 ? AREA-DESC = .XABCXABS$B_AIDJ] AND %%'00000607'; 

; \¢ 23 Now to read in the area_vbn 

: 218 | BEGIN 

; 19 § 4 

; 0 4 GLOBAL REGISTER 

; eel 4 4 COMMON_10_STR; 

; 5§ 0286 4 LOCAL 


H 1 
“Wour000" We=$ep=1984 18:01:65 DISKSYMSMASTERSCRNS-SRCIRMSKALLO.B32¢9°~ (2 
STATUS; 
STATUS = RMSCACHE(.AREA_VBN, 512, 0); 
If error then return with error code in status 


IF NOT .STATUS 
RETURN .STATUS; 


Now to check bucket and release 


RETURN_ON_ERROR ( RMSCHKSUM(), RMSRELEASE(O) ); 


} Now to calculate the offset into the vbn 


AREA_DESC = .AREA_DESC®AREASC_BLN + .BKT_ADDR; 
Now to fill in the various fields 
.AREA_DESCCAREASB_AOP]; 


-AREA~DESCLAREASB_ALN 
“AREA_DESCCAREASL 


XABLXABSL—ALQ]) = 7 “TOTAL_ALLOC]; 

XABLXABSW_DEQ] = .AREA-DESCCAREASW_DEQ]; 

XABLXAB$B_BK2] = .AREA-DESC AREASB-ARBK S73; 
ABSW-VOL] = .AREA-DESCCAREASW- VOLUME J; 


XABCX 0 

RMSRELEASE (0); 

END; ! end of GLOBAL REGISTER and STATUS def 
END; 

Now to return the value of the routine if all went well 


RETURN RMSSUC(SUC); 
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END; 
.TITLE RM3XALLO 
-IDENT \vV04-000\ 
~EXTRN RMSCHKSUM, RMSRELEASE 
-EXTRN RMSCACHE, RMSRND_DEV 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
F F O RMSXALLO3:: 
SE re “: ” ssi a A Hg: gWeRg ADRS AS MORE : 0173 
02 23. «AA §¢ 0007 CMPB. ss 35 1FAB), #2 + 0253 
0091 $1. oo00B oe ; 
56 20. AE p6 sta 1$: MOVL  XAB, R6 : 0263 
0081 CA 17 Ab 91 gi CMPB 3(R6), 177C1 FAB) ; 
0 1B OOO1A BLEQU : 
50 83F4 BF 3C O00IC MOVZWL #33780, RO > 0265 


ant 


a a ; 


1 
RM3XALLO 1hes Sep-1984 :0 VAX=11 ss-32 V RI 
VOe-000 bakes re a Ve Ld tt od 
4E 11 BRB 5 ; : 
6E 00B0 A A 2$: NOV ZBL } 6(IFAB), AREA_VBN + 0271 ; 
000000006 0 18 A JSB RMSRND_DEV ; 0272 ; 
97 : BLBS RO : ; 
0 8059 BF 3¢ 3$: MOV ZUL #32857, RO : 0274 ; 
50 17 AB OA A 4$: MOVZBL (RG, RO : 0276 ; 
0 9 c6 003E DIVL : ; 
6F C 90041 ADDL + AREA yeN : : 
57 17 a6 0 9 EF 00044 EXT2V , 23(R6), AREA_DESC : 0277 ; 
ps4 OO4A CLRL 4 + 0289 ; 
52 0200 8F 3¢ 0004C MOVZWL  # ‘7%. R : : 
51 6— DO 00051 OVL REA VBN, R1 : ; 
000000006 EF 16 00054 JSB RMS$CACH : ; 
47 0 59 0005A BLBC STATUS, 8$ + 0294 : 
00006 30 0005p BSBW § RMSCHKSUM : 0300 ; 
6E 50 00 0060 MOVL RO, | STATUS : ; 
0D 6f E8 0006: BLBS STATUS, 6$ : ; 
D4 00066 CLRL ayft : : 
000000006 EF 16 00068 JSB RMSRELEASE : ; 
50 éE DO 0006E MOVL STATU US, RO ; ; 
1 11 00071 5$: BRB aS : ; 
50 57 06 78 00073 6$: ASHL. #6, AREA_DESC, RO + 0304 : 
57 50 55 ¢1 00077 ADDL3 f KT_ADDR> RO, AREA_DESC : ; 
08 A6 07 A? 90 0007B MOVE (AREA. DESC). 8(RO6Y : 0308 ; 
09 Ab 06 A? 90 00080 MOVB DESC), 9(R6) + 0309 ; 
10 A6 32 A? DO 00085 MOVL CARER. ESCS, 16(R6) : 0310 ; 
14 Ab 24 AZ BO 000BA MOVW Roc ane, ESC), g0(R6) : 0311 ; 
16 Ab A? 90 O008F MOVB (AREA_BESC), 22(R6) : 0312 ; 
OA Ab 04 AZ? BO 00094 MOVW &(AREATDESC). 10(R6) : 0313 ; 
53 04 00099 CLRL = RB : 0314 ; 
000000006 EF 16 0009B JSB RASRELEASE : ; 
50 01 DO 000A 73: MOVL #1, RO : 0321 ; 
5E 04 CO OO0A4 8S: ADDL2 #4. SP : 0323 ; 
OOFC 8F BA O00A7 POPR #*M<R2,R3,R4,R5,R6,R7> : ; 
05 OO00AB RSB ; ; 
3; Routine Size: 172 bytes, Routine Base: RMSRMS3 + 0000 : 
> 261 0324 1 ; 
; 36¢ 0325 1 END 3 
; 6 O58 1 g 
; 64 03 0 ELUDOM : 
: PSECT SUMMARY 3 
; Name Bytes Attributes : 
RMSRMS3 172 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) ; 
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H Library Statistics 

2 ee in: eet on de Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 48 1 154 00:00.3 


COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RM3XALLO/OBJ=0BJ$:RM3XALLO MSRC$:RM3XALLO/UPDATE=(ENH$:RM3XALLO) 


Size: 172 code + 0 data bytes 
Run Time: :05. 

Elapsed Time: 00:17.1 

Lines/CPU Min: 3660 
Lexemes/CPU-Min: 15100 

eneey Used: 78 pages 

Compilation Complete 
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